home *** CD-ROM | disk | FTP | other *** search
/ Student Private Syndrome 3 / Student Private Syndrome 3.iso / private / movie / movie.dxr / 00001.ls next >
Encoding:
Text File  |  1996-06-21  |  1.2 KB  |  50 lines
  1. on startMovie
  2.   global sndname, seclick
  3.   sound stop 1
  4.   cursor(4)
  5.   set sndname to "@::SOUND:S41.AIF"
  6.   set seclick to "SE01"
  7. end
  8.  
  9. on pushbutton
  10.   set ch to clickOn()
  11.   set cname1 to item 1 of the name of cast the castNum of sprite ch
  12.   set cname2 to item 2 of the name of cast the castNum of sprite ch
  13.   repeat while the stillDown
  14.     if rollOver(ch) then
  15.       set the castNum of sprite ch to the number of cast (cname1 & "," & "ON")
  16.     else
  17.       set the castNum of sprite ch to the number of cast (cname1 & "," & cname2)
  18.     end if
  19.     updateStage()
  20.   end repeat
  21.   if rollOver(ch) then
  22.     set the castNum of sprite ch to the number of cast (cname1 & "," & "ON")
  23.     set ret to 1
  24.   else
  25.     set the castNum of sprite ch to the number of cast (cname1 & "," & cname2)
  26.     set ret to 0
  27.   end if
  28.   updateStage()
  29.   return ret
  30. end
  31.  
  32. on moviebutton
  33.   global seclick, selmov
  34.   if pushbutton() then
  35.     sound stop 1
  36.     puppetSound(seclick)
  37.     updateStage()
  38.     cursor(4)
  39.     set selmov to clickOn()
  40.     repeat with i = 6 to 13
  41.       if i <> selmov then
  42.         puppetSprite(i, 0)
  43.         next repeat
  44.       end if
  45.       puppetSprite(i, 1)
  46.     end repeat
  47.     go(marker(1))
  48.   end if
  49. end
  50.